home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_504_EachMenuItem < prev    next >
Encoding:
Text File  |  1992-04-08  |  857 b   |  45 lines
  1. %case defineItem%
  2.     %if commandNr > 999%
  3.         c%MenuName%%MenuItemName%%    %= %commandNr%; 
  4.     %endif%
  5. %case usesDialog%
  6.     %if dialogExists%
  7.         U%dlogname%,
  8.     %endif%
  9. %case doItem.decl%
  10.     %if commandNr > 999%
  11.         %if dialogExists%
  12.             %if modeless%
  13.                 Procedure T%appname%App.Do%dlogname%;
  14.             %endif%
  15.         %endif%
  16.     %endif%
  17. %case doItem%
  18.     %if commandNr > 999%
  19.         %if dialogExists%
  20.             %if modeless%
  21.                 {$S ASelCommand}
  22.                 {----------}
  23.                 Procedure T%appname%App.Do%dlogname%;
  24.                 Begin
  25.                     f%dlogname%.Select;
  26.                     f%dlogname%.Show (true, true);
  27.                 End; {Do%MenuItemName%}
  28.  
  29.             %endif%
  30.         %endif%
  31.     %endif%
  32. %case handleItem%
  33.     %if commandNr > 999%
  34.         c%MenuName%%MenuItemName%:
  35.         %if dialogExists%
  36.                     Do%dlogname%;
  37.         %else%
  38.                     ;    {handle %MenuItemName% choice;}
  39.         %endif%
  40.     %endif%
  41. %case enableItem%
  42.     %if commandNr > 999%
  43.         Enable (c%MenuName%%MenuItemName%, TRUE);
  44.     %endif%
  45.